home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / DTP / P-Z / Zapper(Xpress) 2.0a.cpt / Zapper (version 2.0A).rsrc / STR#_4989.txt < prev    next >
Text File  |  1990-12-21  |  4KB  |  116 lines
  1.  newpath 0 0 moveto gsave xpda setlinewidth xpcs T charpath stroke grestore
  2.  xpcs show}
  3. ] def
  4.  
  5.  {xpdf setfont 0 0 moveto xpcs T charpath gsave xpcs xpwi flattenpath pathbbox
  6.  /xpda TrapWidth xppsx div def 0 1 3 {xpda exch 2 ge
  7.  {sub}{add}ifelse 4 1 roll}for
  8.  grestore setcachedevice
  9.  
  10.  xpcmykprsnt {setcmykcolor}{setrgbcolor}ifelse}ifelse xpdf2 0 get setfont 0 0 moveto show}
  11.  
  12.  {xpdf setfont gsave xpcs xpwi grestore setcharwidth 
  13.  0 0 moveto xpcs show xpsetolcolor xpdf2 0 get setfont
  14.  0 0 moveto xpcs show}
  15.  
  16.  
  17.  xpgray {xpgl}{xpcmykprsnt{currentcmykcolor}{currentrgbcolor}ifelse
  18.  1 setgray xpcmykprsnt{5}{4}ifelse -1 roll}ifelse 
  19.  xpdf setfont 0 0 xpsmc xpgray{xpgl}
  20.  {xpcmykprsnt{5}{4}ifelse 1 roll
  21.  
  22.  {/xpda .05 def xpdf setfont gsave xpcs xpwi 1 index 0 ne
  23.  {exch xpda add exch}if grestore setcharwidth xpc xpcs xpda 
  24.  .01 add 0 moveto dup gsave show grestore xpdf2 0 get setfont
  25.  dup show 0 xpda translate
  26.  
  27.  xpcs xpds xpda2 add .01 add 0 xpsmc 0 xpds xpda2 sub translate 0 0 xpsmc 
  28.  xpda 0 xpsmc xpda xpda xpsmc 0 xpda xpsmc xpc xpgray{xpgl}
  29.  {1 setgray}ifelse xpda 2. div dup moveto show}
  30.  
  31.  
  32.  {/xpda 1 xppsx div def/xpds .05 def/xpda2 xpda 2. div def xpdf setfont 
  33.  gsave xpcs xpwi 1 index 0 ne{exch xpds add xpda2 add exch}if grestore setcharwidth
  34.  
  35.  xpcs 0 0 xpsmc xpdf2 0 get setfont
  36.  xpgray{xpgl}{xpcmykprsnt{5 1 roll setcmykcolor}
  37.  {4 1 roll setrgbcolor}ifelse}ifelse 0 0 moveto show}
  38.  
  39.  
  40.  {xpdf setfont gsave xpcs xpwi grestore setcharwidth xpc 
  41.  xpgray{xpgl}{xpcmykprsnt
  42.  {currentcmykcolor} {currentrgbcolor}ifelse 1 setgray}ifelse
  43.  
  44.  {/xpda 1 xppsx div def xpdf setfont gsave xpcs xpwi 1 index 0 ne
  45.  {exch xpda add exch}if grestore setcharwidth
  46.  xpcs 0 0 xpsmc xpda 0 xpsmc xpda xpda xpsmc 0 xpda xpsmc xpc xpgray
  47.  {xpgl}{1 setgray}ifelse xpda 2. div dup moveto show}
  48.  
  49.  
  50. /xpbcarray[
  51.  {/xpda .03 def xpdf setfont gsave xpcs xpwi 1 index 0 ne
  52.  {exch xpda add exch}if grestore setcharwidth
  53.  xpcs 0 0 xpsmc xpda 0 xpsmc xpda xpda xpsmc 0 xpda moveto show}
  54.  
  55.  dup
  56.  
  57.  
  58. /xpc{currentrgbcolor dup 4 1 roll eq 3 1 roll eq and/xpgray xdf}bdf
  59.  
  60.  newpath 0 0 moveto xpda setlinewidth xpcs T charpath stroke end end} def} ifelse
  61.  currentdict end /xpq exch definefont xpdf2 exch 0 exch put}if}if
  62.  xpmbc exec end end}def end xpmfont
  63.  }ifelse
  64.  3 index exch definefont exch pop}bdf
  65.  
  66.  xpdf setfont 0 0 moveto xpcs T charpath gsave xpcs xpwi flattenpath pathbbox
  67.  /xpda TrapWidth xppsx div StyleCode 6 lt {.012 add} if dup 0 lt {pop 0} if def
  68.  0 1 3 {xpda exch 2 ge {sub}{add}ifelse 4 1 roll} for grestore setcachedevice
  69.  
  70.  {6 dict begin/FontMatrix [1 0 0 1 0 0] def /FontType 3 def
  71.  /Encoding xpmacvec def/FontBBox [0 0 1 1] def/BuildChar{pop begin 1 dict begin
  72.  
  73.  /UniqueID ne and{def}{xppop2}ifelse}forall /StrokeWidth 240 xppys div
  74.  xppsx div dup 12 lt{pop 12}if def/PaintType 2 def}
  75.  
  76.  /xpcr exch def/xpcs xps1 dup 0 xpcr put def xpdf /MFontType known not StyleCode 7 lt and{
  77.  xpdf2 0 get null eq {
  78.  xpdf /PaintType known{xpdf /PaintType get 0 ne}{T}ifelse
  79.  { xpdf dup length 2 add dict begin{1 index/FID ne 2 index
  80.  
  81.  /FontBBox [0 0 1 1] def/StyleCode 2 index def/TrapWidth xptrapamt def
  82.  /xpmbc{xpbcarray StyleCode get}def/BuildChar{exch begin xpwd begin
  83.  
  84.  {xpnewmm 3 1 roll}forall xppop2] put dup
  85.  }
  86.  {/xpmfont 11 dict def xpmfont begin/FontMatrix [1 0 0 1 0 0] def
  87.  /FontType 3 def/Encoding xpmacvec def/xpdf 1 index def/xpdf2 1 array def
  88.  
  89. /xpnewmm{dup /FontType get 0 eq
  90.  {dup maxlength dict begin
  91.  {1 index/FID ne 2 index/UniqueID ne and{def}{xppop2}ifelse}forall currentdict end
  92.  dup /FDepVector 2 copy get[exch 6 index exch 6 index exch
  93.  
  94.  {xpfnam dup xpsbs /xpmmindx 0 def xpstylfnt}
  95.  {xptrapamt 0 ne
  96.  {xptrapamt 0 lt
  97.  {xptrapamt neg /xptrapamt xdf xpfnam dup xpstc 6}
  98.  {xpfnam dup xpsts 7}ifelse /xpmmindx xdf xpstylfnt}
  99.  {xpfont xpsfd
  100.  }ifelse}ifelse}ifelse}ifelse
  101. }bdf
  102.  
  103.  {xpfnam dup xpsos xptrapamt 0 ne{xpsts}if xpbitfont{2}{3}ifelse /xpmmindx xdf xpstylfnt}
  104.  {xpsa 0 get 0 ne xpbitfont1 and
  105.  
  106.  xpsa 4 get 0 ne
  107.  {xpfnam dup xpsss xptrapamt 0 ne{xpsts}if xpbitfont{4}{5}ifelse /xpmmindx xdf xpstylfnt}
  108.  {xpsa 3 get 0 ne
  109.  
  110.  {xpfont /PaintType known{xpfont /PaintType get 0 ne}{T}ifelse{/xptrapamt 0 def}if}ifelse
  111.  xpuseangl xpsa 1 get 0 ne and /xpuseangl xdf
  112.  
  113.  dup /xpfont xdf /PaintType known{xpfont /PaintType get dup 1 eq exch 3 eq or}{F}ifelse
  114.  xpfont /MFontType known dup dup /xpbitfont1 xdf 3 -1 roll or /xpbitfont xdf{/xptrapamt 0 def /xpuseangl T def}
  115.  
  116.